home *** CD-ROM | disk | FTP | other *** search
/ EROS 2 / EROS 2.iso / mac / EROS vol.2 / EROS vol.DXR / 00567.ls < prev    next >
Encoding:
Text File  |  1995-12-20  |  567 b   |  19 lines
  1. on mouseUp
  2.   global md2, rantime, mp
  3.   set the cursor of sprite 5 to 4
  4.   set the movieRate of sprite 7 to 0
  5.   go(marker(0) + 1)
  6.   set rantime to the ticks
  7.   set mp to 5
  8.   if the castNum of sprite 5 = the number of cast "elf5" then
  9.     set the castNum of sprite 5 to the number of cast "fict56"
  10.     go(marker(0) + 2)
  11.     updateStage()
  12.     set the movieRate of sprite 5 to 1
  13.   else
  14.     set md2 to the duration of cast (the castNum of sprite 5 + 1) - 3
  15.     set the castNum of sprite 5 to the castNum of sprite 5 + 1
  16.   end if
  17.   set the cursor of sprite 5 to [50, 51]
  18. end
  19.